home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 47 / Amiga Format AFCD47 (Issue 131, Xmas 1999).iso / -serious- / comms / www / openurl / install openurl next >
Text File  |  1999-10-17  |  3KB  |  113 lines
  1. ; $VER: Install OpenURL 3.0 (26.9.99)
  2. ;
  3. ; openurl.library - universal URL display and browser launcher library
  4. ; Written by Troels Walsted Hansen <troels@thule.no>
  5. ; Placed in the public domain.
  6. ;
  7. ; Installer script for openurl.library and tools.
  8.  
  9. (set #exitmsg "\n\nIf you are a developer and wish to use\nopenurl.library, check out the included\ndocumentation and source code.")
  10.  
  11. ; Welcome screen
  12.  
  13. (welcome "\nThis installer script will install openurl.library and tools.\nopenurl.library is a universal URL display and browser launcher library.")
  14.  
  15. ; Copy files
  16.  
  17. (copylib
  18.     (prompt "Installing the library")
  19.     (help @copyfiles-help)
  20.     (source "Libs/openurl.library")
  21.     (dest "Libs:")
  22. )
  23.  
  24. (copylib
  25.     (prompt "Installing the handler")
  26.     (help @copyfiles-help)
  27.     (source "L/OpenURL-Handler")
  28.     (dest "L:")
  29. )
  30.  
  31. (copyfiles
  32.     (prompt "Installing the preference program")
  33.     (help @copyfiles-help)
  34.     (source "Prefs/OpenURL")
  35.     (dest "SYS:Prefs")
  36.     (infos)
  37.     (noposition)
  38. )
  39.  
  40. (copylib
  41.     (prompt "Installing the Popport.mcc MUI class")
  42.     (help @copyfiles-help)
  43.     (source "Libs/MUI/Popport.mcc")
  44.     (dest "MUI:Libs/MUI")
  45. )
  46.  
  47. (copylib
  48.     (prompt "Installing the Popplaceholder.mcc MUI class")
  49.     (help @copyfiles-help)
  50.     (source "Libs/MUI/Popplaceholder.mcc")
  51.     (dest "MUI:Libs/MUI")
  52. )
  53.  
  54. (copyfiles
  55.     (prompt "Installing the optional commandline tool")
  56.     (help "This is a small tool that allows you to open URLs from the commandline.")
  57.     (source "C/OpenURL")
  58.     (dest "C:")
  59.     (confirm)
  60. )
  61.  
  62. (copyfiles
  63.     (prompt "Installing the optional ARexx OpenURL script")
  64.     (help "This is a small example script that opens URLs.")
  65.     (source "Rexx/OpenURL.rexx")
  66.     (dest "S:")
  67.     (confirm)
  68. )
  69.  
  70. (if
  71.     (exists "ENV:THOR/THORPath")
  72.  
  73.     (copyfiles
  74.         (prompt "Installing the optional THOR ARexx mailto script")
  75.         (help "If you use THOR and wish to use that to handle mailto URLs, install this script. If you install it to directory other than the default, make sure to change it in the OpenURL prefs as well.")
  76.         (source "Rexx/SendThorMail.rexx")
  77.         (dest (tackon (pathonly (getenv "THOR/THORPath")) "Rexx"))
  78.         (confirm)
  79.     )
  80. )
  81.  
  82. ; Set environment variable
  83.  
  84. (run "Echo SYS:Prefs/OpenURL >ENV:OpenURL_Prefs_Path")
  85. (run "Echo SYS:Prefs/OpenURL >ENVARC:OpenURL_Prefs_Path")
  86.  
  87. ; Flush
  88.  
  89. (message "Before proceeding, you must quit all programs using openurl.library, so that the old version can be flushed from memory.")
  90. (run "Avail FLUSH")
  91.  
  92. ; Ask whether to run prefs program
  93.  
  94. (if
  95.     (=
  96.         (askbool
  97.             (prompt "You should run the preferences program now to set your browser path(s) and other preferences. Would you like me to launch it?")
  98.             (help "")
  99.             (default 1)
  100.         )
  101.  
  102.         1
  103.     )
  104.  
  105.     (run "SYS:Prefs/OpenURL")
  106. )
  107.  
  108. ; Exit
  109.  
  110. (exit #exitmsg
  111.     (quiet)
  112. )
  113.